home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib09.dsk / PSEUDO COLORS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  757b  |  24 lines
  1. 2  REM  ***********************
  2. 3  REM  *  PSEUDO COLORS      *
  3. 4  REM  *  BY ROB SMYTHE      *
  4. 5  REM  * COPYRIGHT (C) 1982  *
  5. 6  REM  * BY MICRO-SPARC INC  *
  6. 7  REM  * LINCOLN, MA. 01773  *
  7. 8  REM  ***********************
  8. 30 COL = 170
  9. 40 A = 154: HOME 
  10. 50  HGR 
  11. 60  POKE 228,COL
  12. 70  FOR I = 1 TO 20
  13. 80  FOR J = 1 TO 3
  14. 90  HPLOT 40 *J,20 +I TO 40 *J +20,20 +I
  15. 100  NEXT J,I
  16. 110  POKE 228,A
  17. 120  FOR I = 1 TO 20
  18. 130  FOR J = 1 TO 3
  19. 140  HPLOT 40 *J +20,20 +I TO 40 *J +40,20 +I
  20. 150  NEXT J,I
  21. 160  REM  ENTER NUMBER BETWEEN 0 AND 127 TO ACCOMPLY GREEN OR BLUE SQUARES AND A NUMBER BETWEEN 128 AND 255 TO USE WITH ORANGE OR VIOLET
  22. 170  VTAB 22: IF COL <127  THEN  INPUT "NEW CHOICE (0...127)? ";A: GOTO 50
  23. 180  INPUT "NEW CHOICE (128 TO 255)? ";A
  24. 190  GOTO 50